CAADate_IsLeap <-
function(Year, bGregorianCalendar){
.Call("CAADate_IsLeap", Year, bGregorianCalendar)
}
